home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_93.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  1.0 KB  |  44 lines
  1. on exitFrame
  2.   global last, atmoPos1, nappi_sprite, atmoY
  3.   LiveRollOver(103, 103, 0)
  4.   set mt to the movieTime of sprite 110
  5.   set laster to 0
  6.   set f to 10
  7.   set loc to 490
  8.   repeat while f < 20
  9.     if rollOver(f) then
  10.       set laster to f
  11.       nothing()
  12.       set loc to 53 + (30 * (f - 9))
  13.     end if
  14.     set f to f + 1
  15.   end repeat
  16.   if rollOver(30) then
  17.     set loc to 406
  18.   end if
  19.   if rollOver(31) then
  20.     set loc to 436
  21.   end if
  22.   if the locV of sprite nappi_sprite <> loc then
  23.     set the locH of sprite nappi_sprite to 461
  24.     set the locV of sprite nappi_sprite to loc
  25.   end if
  26.   set last to laster
  27.   set f to 1
  28.   set loc to 500
  29.   repeat while f < 11
  30.     if (mt >= ((getAt(atmoPos1, f) * 60) - 30)) and (mt <= (getAt(atmoPos1, f + 1) * 60)) then
  31.       set loc to 53 + (f * 30)
  32.       set mem to "atmotxt" & f
  33.       set the member of sprite 90 to mem
  34.     end if
  35.     set f to f + 1
  36.   end repeat
  37.   if the locV of sprite 117 <> loc then
  38.     set the locH of sprite 117 to 446
  39.     set the locV of sprite 117 to loc
  40.   end if
  41.   set loc to 500
  42.   go(the frame)
  43. end
  44.